VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Dummy2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit


'Special Dummy Test Class that the tests try to get VBUnit to create
'and call methods on.
'This version raises an error in setup and has three test methods

Public Sub test1()
dLogger.Add "t1"
End Sub
Public Sub test2()
dLogger.Add "t2"
End Sub
Public Sub test3()
dLogger.Add "t3"
End Sub

'OPTIONAL METHODS
Public Sub setup()
dLogger.Add "s"
Err.Raise 1001
End Sub
Public Sub teardown()
dLogger.Add "t"
End Sub
'Public Function NumOfAsserts() As Long
'NumOfAsserts = 1
'End Function

Private Sub Class_Initialize()
dLogger.Add "I"
End Sub
Private Sub Class_Terminate()
dLogger.Add "T"
End Sub

